% V20210224 - 6.3 GW_OPEN_GROUP

INCLUDE "GW.bas"

p = GW_NEW_PAGE()

% Prepare title bar string.
Title$ = GW_ADD_BAR_TITLE$("Group Example")

% Add title to page.
GW_ADD_TITLEBAR(p, Title$)

GW_ADD_TEXT(p, "Checkboxes provide options where more than one can be selected.")

GW_ADD_TEXT(p, "The following Checkboxes are grouped together.")

GW_OPEN_GROUP(p)
 ctl_check1 = GW_ADD_CHECKBOX(p, "I like red")
 ctl_check2 = GW_ADD_CHECKBOX(p, ">I like green")
 ctl_check3 = GW_ADD_CHECKBOX(p, "I like black")
GW_CLOSE_GROUP(p)

GW_ADD_TEXT(p, "The following Checkboxes are NOT grouped together.")

ctl_check4 = GW_ADD_CHECKBOX(p, ">I like blue")
ctl_check5 = GW_ADD_CHECKBOX(p, "I like yellow")

GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Example feedback.
 POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END "End of Group example."